home *** CD-ROM | disk | FTP | other *** search
/ Technotools / Technotools (Chestnut CD-ROM)(1993).ISO / lang_pas / fcomm240 / ftest.pas < prev   
Pascal/Delphi Source File  |  1991-03-07  |  181b  |  19 lines
  1. USES FCOMM;
  2.  
  3. VAR
  4.    S : STRING;
  5.    A : CHAR;
  6.  
  7. BEGIN
  8.  
  9.   ForceLocal := TRUE;
  10.   DoorType   := DoorInfo;
  11.  
  12.   FCommInit;
  13.  
  14.   CLS;
  15.   DumbTerminal(TRUE);
  16.  
  17.   Error(0);
  18.  
  19. END.